home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / util / rexx / AiptekRexxTool.lha / AiptekRexxTool / AiptekRexxTool.rexx < prev   
OS/2 REXX Batch file  |  2002-09-27  |  3KB  |  102 lines
  1. /*
  2.                     $Ver: Aiptek Rexx Tool 0.3 (07-22-2002)
  3.  
  4.             Script à l'arrache dédié aux Aiptek Cam via USB
  5.                                               et PencamTool
  6.  
  7.                                  by l'Ours <ours@noname.fr>
  8. */
  9.  
  10. OPTIONS RESULTS
  11.  
  12. ADDLIB('rexxreqtools.library',5,-30)
  13.  
  14. /* Change your Prefs here */
  15.  
  16. PathPencamTool = 'C:.NSYS/PencamTool'
  17. PicBaseName = 'Pic_'
  18. PathSave = 'PUB:Pix/PalmCam/.NEW/'
  19. GammaVal = '0.45'
  20.  
  21. PathPPMto24 = 'C:.NSYS/PPMto24'
  22.  
  23. PathGfxCon = 'PRG:DP/GfxCon'
  24. ConvFormat = 'JPEG QUALITY 85'
  25. ConvExt = '.jpg'
  26. PathTemp='T:'
  27.  
  28. PathJ2M = 'PRG:DP/JPEG2MOV'
  29. SavedMov = 'RAM:Cam.mov'
  30. JpgOrigFps = 12
  31. MovFps = 12
  32.  
  33. /* End Prefs */
  34.  
  35.  
  36. NbrPics = 0
  37. NL = '0a'x
  38. PRAGMA('s',50000)
  39.  
  40. VarNbrPics = RTGETSTRING(,'How many pics to transfert ?','Aiptek Rexx Tool','_Transfert | _Cancel ',,Retour)
  41. IF Retour = 0 THEN EXIT
  42.  
  43. VarNbrPics = VarNbrPics -1
  44.  
  45.  DO NbrPics = 0 TO VarNbrPics
  46.  
  47.   IF NbrPics < 10 THEN
  48.    DO
  49.    ADDRESS COMMAND PathPencamTool ' ' PathSave || PicBaseName || '0' || NbrPics ' ' NbrPics || ' SHARPEN GAMMA ' GammaVal
  50.   END
  51.  
  52.   ELSE
  53.    DO
  54.    ADDRESS COMMAND PathPencamTool ' ' PathSave || PicBaseName || NbrPics ' ' NbrPics || ' SHARPEN GAMMA ' GammaVal
  55.   END
  56.  
  57.  END
  58.  
  59.  Say NL || 'Transfert(s) successful...' || NL
  60.  
  61. ResultConv = RTEZREQUEST('JPEG Convertion ?','C_onvert | _Cancel ','Aiptek Rexx Tool')
  62. IF ResultConv = 0 THEN EXIT
  63.  
  64.  DO NbrPics = 0 TO VarNbrPics
  65.  
  66.   IF NbrPics < 10 THEN
  67.    DO
  68.    InFile = PathSave || PicBaseName || '0' || NbrPics
  69.    TempFile = PathTemp || 'art' || '0' || NbrPics
  70.    OutFile = PathSave || PicBaseName || '0' || NbrPics || ConvExt
  71.    ADDRESS COMMAND PathPPMto24 ' <>NIL: ' || Infile || ' ' TempFile
  72.    ADDRESS COMMAND PathGfxCon ' <>NIL: ' || TempFile || ' TO ' || OutFile || ' FORMAT ' || ConvFormat
  73.    ADDRESS COMMAND 'Delete <>NIL: ' || TempFile
  74.    ADDRESS COMMAND 'Delete <>NIL: ' || InFile
  75.    SAY InFile || ' converted...'
  76.   END
  77.  
  78.   ELSE DO
  79.    InFile = PathSave || PicBaseName || NbrPics
  80.    TempFile = PathTemp || 'art' || NbrPics
  81.    OutFile = PathSave || PicBaseName || NbrPics || ConvExt
  82.    ADDRESS COMMAND PathPPMto24 ' <>NIL: ' || Infile || ' ' TempFile
  83.    ADDRESS COMMAND PathGfxCon ' <>NIL: ' || TempFile || ' TO ' || OutFile || ' FORMAT ' || ConvFormat
  84.    ADDRESS COMMAND 'Delete <>NIL: ' || TempFile
  85.    ADDRESS COMMAND 'Delete <>NIL: ' || Infile
  86.    SAY InFile || ' converted...'
  87.   END
  88.  
  89.  END
  90.  
  91.  Say NL || 'JPEG conversion successful...' || NL
  92.  
  93. ResultConv = RTEZREQUEST('MOV Convertion ?' || NL || '(from JPEG)','C_onvert | _Cancel ','Aiptek Rexx Tool', 'rtgs_flags = gsreqf_centertext')
  94. IF ResultConv = 0 THEN EXIT
  95.  
  96.  InFile = PathSave || PicBaseName || '00.jpg'
  97.  ADDRESS COMMAND PathJ2M || ' FROM ' || InFile || ' TO '  || SavedMov || ' ORIGFPS=' || JpgOrigFps || ' FPS=' MovFps
  98.  
  99.  Say NL || 'JPEG to MOV conversion successful... ' SavedMov || ' created.' || NL
  100.  
  101. EXIT
  102.